# Table 1

#####
rm(list=ls(all=TRUE))

library(tidyverse)

#### Dataset Original ####
setwd("/Users/sebastian/Dropbox/The politics of interruptions - JOP RR/Replication Files/Data Rep")
load("data_empirics_count_rep.Rdata")
load("data_empirics_length_rep.Rdata")

### Summary Statistics for Number of Speeches and Length of Speeches
options(digits = 5)

data_empirics_length %>%
  group_by(cohort,id_combined) %>%
  mutate(num_speeches = n()) %>%
  group_by(cohort,female_dum) %>%
  summarise(mean_num = mean(num_speeches)) %>% 
  mutate_if(is.numeric, format, 1)

data_empirics_length %>%
  group_by(cohort,female_dum) %>%
  summarise(mean(length_speech_combined)) %>% 
  mutate_if(is.numeric, format, 1)

## Manually done in latex... 



